home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Diamond Collection
/
The Diamond Collection (Software Vault)(Digital Impact).ISO
/
cdr28
/
par300.zip
/
EXAMPL02.POM
< prev
next >
Wrap
Text File
|
1995-04-12
|
2KB
|
59 lines
;
; NOTE: A quick-reference summary of POM commands appears in EXAMPL04.POM
;
;-------------------------------------------------------------------------------
;
; Ignore lines that are less than 85 characters long
;
MINLEN "85"
;
; Ignore lines that contain extraneous information ("^" means "contains")
;
IGNORE $FLINE ^ "Date: "
IGNORE $FLINE ^ "Order Expected"
IGNORE $FLINE ^ "Date Ship Date"
IGNORE $FLINE ^ "Item number/Description"
;
; Change double-quotes (the " character) to single-quotes (').
;
CHANGE $FLINE """" "'"
;
; Determine where we are
;
IF $FLINE[8] = " " THEN ITEMCNTR = ITEMCNTR+ ELSE "0"
;
; Set variables
;
BEGIN ITEMCNTR = "0"
SET REFNUM = $FLINE[ 1 8]
SET CUSTCODE = $FLINE[ 10 15]
SET CUSTDESC = $FLINE[ 17 47]
SET ORDRDATE = $FLINE[ 49 57]
SET MSTRCVDT = $FLINE[ 60 68]
TRIM REFNUM "B" " "
TRIM CUSTCODE "B" " "
TRIM CUSTDESC "B" " "
TRIM ORDRDATE "B" " "
TRIM MSTRCVDT "B" " "
END
BEGIN ITEMCNTR = "1"
SET PRICE = $FLINE[105 114]
SET QTY = $FLINE[ 76 86]
SET PARTNUM = $FLINE[ 10 32]
TRIM PRICE "B" " "
TRIM PRICE "A" ","
TRIM QTY "B" " "
TRIM PARTNUM "B" " "
IF PRICE = "" THEN PRICE = "0.00"
IF QTY = "" THEN QTY = "0"
END
BEGIN ITEMCNTR = "2"
SET DESCRIP = $FLINE[ 10 43]
TRIM DESCRIP "B" " "
OUT |"{REFNUM}","{CUSTCODE}",{PRICE},{QTY},"{PARTNUM}",
OUTEND |"{DESCRIP}"
SET ITEMCNTR = "0"
END